Sub Main()
	dim change as list
	dim coins[4] as string
	dim i as integer
	
	coins[0] = "quaters"
	coins[1] = "dimes"
	coins[2] = "nickles"
	coins[3] = "pennies"

	//compute how many coins to return as change
	change = biz.ComputeChangeInCoins(38)
	for i = 0 to 3
		msgbox(coins[i] & " " & change[i])	nextEnd Sub 